home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
os2
/
os2pl122.zip
/
MXOPLD33.ZIP
/
BACKUP.CMD
next >
Wrap
OS/2 REXX Batch file
|
1996-08-04
|
804b
|
39 lines
/* *************************************** */
/* BACKUP */
/* 25.02.96 by M.Riedel 70:7101/1100 */
/* *************************************** */
call rxfuncadd 'SYSFILETREE','REXXUTIL','SYSFILETREE'
args=arg()
if args=0 then do
say 'Aufruf mit BACKUP <Pfad des HOST.LOG> <GAMENUMMER>'
signal ende
end
arg hf gamenr
hfile=strip(hf,'t','\')'\evaluate.log'
zfile=strip(hf,'t','\')'\*.*'
call sysfiletree hfile,'TURN','F'
IF file.0 = 0 THEN Do
SAY "EVALUATE.LOG wurde nicht gefunden!"
Exit
END
DO 5
inline = TRANSLATE(Strip(Linein(hfile)),' ',d2c(09))
END
Call Lineout(hfile)
PARSE VAR inline Keyword Keyword2 Value
trnnum=STRIP(Value)
zipname="backup\Oturn_"trnnum".zi"gamenr
zip zipname zfile
ende: